home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods.lha / userbios.lha / userbios.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-12-20  |  1.1 KB  |  48 lines
  1. /* User Biographies v1.0 By Instigist, Snake Pit BBS 310-863-3754 */
  2.  
  3. options results
  4. BBSIDENTIFY USER
  5. temp = result
  6. parse var temp '"'id'" "'locat'" "'ans
  7. id = upper(id)
  8. if exists('doors:bios/'id) then call oldbio
  9. print " "
  10. print "Filling Out User Biography For "id"..."
  11. print " "
  12. prompt 60 'NORMAL' 'Computer Setup(1 line): '
  13. compset = result
  14. prompt 60 'NORMAL' 'Hobbies(1 line): '
  15. hobbies = result
  16. print "You Have 5 Lines To Describe Yourself For The Other Users:"
  17. do i = 1 to 5
  18. prompt 75 'NORMAL' ''i'>'
  19. desc.i = result
  20. end
  21. print " "
  22. print "Writing Biography..."
  23. open(file,'doors:bios/'id,'W')
  24. writeln(file,'Handle    :'id)
  25. writeln(file,'Location  :'locat)
  26. writeln(file,'Computer  :'compset)
  27. writeln(file,'Hobbies   :'hobbies)
  28. writeln(file,'')
  29. do i = 1 to 5
  30. writeln(file,desc.i)
  31. end
  32. print " "
  33. prompt 1 'YESNO' 'Would You Like To View Other Bios(Y/n)? '
  34. ans = result
  35. if ans = 'N' then call outbios
  36. oldbio:
  37. print " "
  38. prompt 20 'NORMAL' 'View Which Users Biography? '
  39. ans = upper(result)
  40. if exists('doors:bios/'ans) then call viewbio
  41. print ''
  42. print 'That User Doesnt Exist/Hasnt Filed A Biography...'
  43. call outbios
  44. viewbio:
  45. SENDFILE 'doors:bios/'ans 
  46. outbios:
  47. exit
  48.